home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
gsdbloo.exe
/
DEMOB001.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-02-24
|
1KB
|
38 lines
program DemoB001;
{------------------------------------------------------------------------------
DBase File Creator
Sample 1
Demo Program
Copyright (c) Richard F. Griffin
10 February 1992
102 Molded Stone Pl
Warner Robins, GA 31088
-------------------------------------------------------------
The DEMOB1.DBF file will be created by using the MakeTestData
procedure in GS_GENF.PAS.
-------------------------------------------------------------------------------}
uses
CRT,
DOS,
GS_GenF;
begin
ClrScr;
{-----------------------------------------------------------------------------}
{ This call will create a .DBF file containing 20 records without memos. }
{ See the GS_GENF.PAS file to see how it works. }
{-----------------------------------------------------------------------------}
writeln('Creating DemoB1.DBF');
MakeTestData('DemoB1', 20, false);
writeln('DemoB1.DBF Created');
end.